object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 606
  Width = 914
  object FDConn: TFDConnection
    Params.Strings = (
      'Database=shmes60_001'
      'User_Name=sa'
      'Password=Mengyun5005'
      'Server=1.12.223.77,2568'
      'DriverID=MSSQL')
    ResourceOptions.AssignedValues = [rvAutoReconnect]
    ResourceOptions.AutoReconnect = True
    Connected = True
    LoginPrompt = False
    Left = 40
    Top = 16
  end
  object FDQrySMLOG: TFDQuery
    Connection = FDConn
    SQL.Strings = (
      
        'insert into SM_LOG(LOG_Time, LOG_Content, LOG_Operator, LOG_IP, ' +
        'LOG_Type) '
      
        'select getdate(),:LOG_Content , :LOG_Operator , :LOG_IPAddr , :L' +
        'OG_Type ')
    Left = 816
    Top = 32
    ParamData = <
      item
        Name = 'LOG_CONTENT'
        ParamType = ptInput
      end
      item
        Name = 'LOG_OPERATOR'
        ParamType = ptInput
      end
      item
        Name = 'LOG_IPADDR'
        ParamType = ptInput
      end
      item
        Name = 'LOG_TYPE'
        ParamType = ptInput
      end>
  end
  object FDQryUSERPOWER: TFDQuery
    Connection = FDConn
    SQL.Strings = (
      ' select a.*'
      'from SM_MODULES a '
      'left join  SM_USERPOWER b  on a.MOD_id=b.MOD_id'
      'where  a.mod_ifstop=0  '
      'and b.Use_id=:userid'
      
        'and  exists(select 1 from SM_MODULES c where c.mod_parcode=a.mod' +
        '_code)'
      'order by len(a.MOD_PARCODE), a.MOD_INDEX')
    Left = 816
    Top = 88
    ParamData = <
      item
        Name = 'USERID'
        DataType = ftInteger
        ParamType = ptInput
      end>
    object FDQryUSERPOWERmod_id: TFDAutoIncField
      FieldName = 'mod_id'
      Origin = 'mod_id'
      ProviderFlags = [pfInWhere, pfInKey]
      ReadOnly = True
    end
    object FDQryUSERPOWERmod_code: TStringField
      FieldName = 'mod_code'
      Origin = 'mod_code'
      Required = True
    end
    object FDQryUSERPOWERmod_name: TStringField
      FieldName = 'mod_name'
      Origin = 'mod_name'
      Required = True
      Size = 50
    end
    object FDQryUSERPOWERmod_parcode: TStringField
      FieldName = 'mod_parcode'
      Origin = 'mod_parcode'
      Required = True
      Size = 255
    end
    object FDQryUSERPOWERmod_index: TIntegerField
      FieldName = 'mod_index'
      Origin = 'mod_index'
      Required = True
    end
    object FDQryUSERPOWERmod_ifstop: TBooleanField
      FieldName = 'mod_ifstop'
      Origin = 'mod_ifstop'
      Required = True
    end
    object FDQryUSERPOWERmod_classtype: TIntegerField
      FieldName = 'mod_classtype'
      Origin = 'mod_classtype'
      Required = True
    end
  end
  object FDQryGetFieldValue: TFDQuery
    Connection = FDConn
    Left = 816
    Top = 200
  end
  object FDQrySaveData: TFDQuery
    Connection = FDConn
    SQL.Strings = (
      'select * from sm_SaveData with(nolock)')
    Left = 816
    Top = 264
  end
  object FDSPCreateNo: TFDStoredProc
    Connection = FDConn
    StoredProcName = 'shmes60_001.dbo.Usp_CreateNo'
    Left = 824
    Top = 344
    ParamData = <
      item
        Position = 1
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        ParamType = ptResult
      end
      item
        Position = 2
        Name = '@V_ModuleName'
        DataType = ftWideString
        ParamType = ptInput
        Size = 50
      end
      item
        Position = 3
        Name = '@V_ParCode'
        DataType = ftWideString
        ParamType = ptInput
        Size = 10
      end
      item
        Position = 4
        Name = '@V_NewCode'
        DataType = ftString
        ParamType = ptInputOutput
        Size = 50
      end>
  end
  object FDQryTemp: TFDQuery
    Connection = FDConn
    Left = 816
    Top = 432
  end
  object FDGUIxErrorDialog1: TFDGUIxErrorDialog
    Provider = 'Forms'
    Left = 520
    Top = 304
  end
  object FDGUIxAsyncExecuteDialog1: TFDGUIxAsyncExecuteDialog
    Provider = 'Forms'
    Left = 520
    Top = 392
  end
  object FDGUIxWaitCursor1: TFDGUIxWaitCursor
    Provider = 'Forms'
    Left = 488
    Top = 248
  end
  object FDPhysMSSQLDriverLink1: TFDPhysMSSQLDriverLink
    Left = 144
    Top = 16
  end
end
